00010 



XLIST 
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000000 
000001 
000002 

000003 

000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 



000024 
000025 
000026 
000027 
000030 
000031 
000032 



201100 000000 

135500 000001 

306500 000015 

263140 000000 



260140 
200500 
201100 
135540 
254000 
134540 
260140 
263140 
640540 
136540 
312500 
254000 
134540 
260140 
263140 
254000 



301540 
303540 
263140 
303540 
301540 
350003 
263140 



000035' 
000231' 

000000 

000001 

000012' 

000001 

000024' 

000000 

000040 

000012 

000232' 

000011' 

000001 

000024' 

000000 

000020' 



000060 
000132 
000000 
000071 
000101 
000000 
000000 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 



ROUTINE TO RETURN NEXT ALPHANUMERIC STRING 
IN COMMAND LINE (SIXBIT) 
call: MOVE TAC, BYTE POINTER TO FIRST CHAR.-l 

PUSHJ POP, CTEXT 
SIXRIT STRING RETURN LEFT JUSTIFIED IN AC TACl 

INTERNAL CTEXT, CTEXTl 



T=BUFPNT 

T1=BUFWRD 

T2=UU0 

CTEXTi: 



{TEMPORARY ACS 



MOVEI TACl, 
LDB T, TAC 
CAIN T, 15 
POPJ POP, 



jcheck previous break char. 
;return if cr. 



CTEXT; 



CTEX0 
CTEXl 



CTEX2; 



PUSHJ POP, SKIPS 

MOVE T, [POINT 6, TACl] 

MOVEI TACl. 

LDB Tl, TAC 

JRST CTEXl 

ILDB Tl.TAC 

PUSHJ POP, CTFX 

POPJ POP, 

TRC Tl,40 

IDPB Tl.T 

CAME T, [POINT 6. TACl, 353 

JRST CTEX0 

ILDB Tl, TAC 

PUSHJ POP, CTEX 

POPJ POP, 

JRST CTEX2 



;SKIP LEADING SPACES, TABS 



; is it alphanumeric 
;no, exit 
;convert to sixbit 

;YES, STORE AWAY 

;six character yet 
;no 

* YFS 

; IS IT ALPHANUMERIC 

;N0. EXIT 



;SCAN FOR ALPHANUMERIC CHAR IN Tl 
CTEX: CAIL Tl, "0" 

CARE Tl, "Z" ;LETTERS ARE LARGER THAN NOS. 

POPJ POP, ;neither 

CAILE Tl, "9" 
CAIL Tl, "A" 

Aos (POP) ;letter or number 

POPJ POP, 
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000033 
000034 



000035 
000036 
000037 
000040 
000041 



135500 000001 
254000 000036' 



134500 000001 

302500 000040 

306500 000011 

254000 000035' 

263140 000000 



00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 



ROUTINE TO IGNORE LEADING SPACES AND TABS 
CALL: MOVE TAC, BYTE POINTER TO CHAR. 
PUSHJ PDP. SKIPSl 

INTERNAL SKIPSl 



SKIPSi: 



LDB T, TAC 
JRST SKIPSA 



.ROUTINE TO IGNORE LEADING SPACES AND TaBS 

;call: move Tag, byte pointer to char.-i 
; pushj pdp, skips 



internal SKIPS 



SKIPS: 
SKIPSA 



ILDB 
CAIE 
CAIN 
JRST 
POPJ 



TAC 
II II 



T, 
T, 

T, 11 
SKIPS 
POP, 
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000042 133000 000001 



000043 200240 000001 

000044 201506 000000 

000045 305505 777775 

000046 541252 000003 

000047 201500 000077 

000050 137500 000005 

000051 265040 000060' 

000052 202331 747222 

000053 522372 220206 

000054 476331 540634 

000055 421010 551244 

000056 476441 505000 



00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 



00960 
00970 
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;R0UTINE to append a "?•• to input string and set as OUTPUT 
;CALL: move TAC, byte POINTER TO LAST CHAR. IN INPUT STRING 

; pusHj pop, comera 

INTERNAL COMERA 
comera: IBP TAC 



ROUTINE TO REPLACE LAST CHARACTER IN INPUT STRING BY "?•• 
AND SET AS OUTPUT 

CALL: MOVE TAC, BYTE POINTER TO LAST CHAR. IN INPUT STRING 
PUSHJ POP, COMERR 



INTERNAL COMERR 
EXTERNAL TTYBUF 



COMERR: MOVE DAT, TAC 

MOVEI T,TTYBUf(OEVDAT) 

CAIGE T,-3(DAT) 

HRRI DAT,3(T) ;YES, TYPE ONLY 3 

MOVEI T, "?" JAPPEND "?" 

DPB T, DAT 

JSP TACCONMES 

ASCIZ / MONITOR COMMAND ERROR 



MS THERE MORE THAN 3 WORDS I 
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000057 201040 000233' 



000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 



261140 
505040 
134100 
3221^^0 
1361PI0 
254000 
262140 
263140 



000002 

440700 

000001 

000066' 

000005 

000062' 

000002 

000000 



000070 265040 000060' 

000071 522371 720214 

000072 426564 040644 

000073 436531 542634 

000074 522461 505000 



00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 



01360 



;routine to print carriage RETURN-LINE-FEEO 

;call: move DAT, byte pointer to output 

; pushj pdp.crlf 

internal crlf 



CRLF: 

/] 



ROUTINE 
call: 



STRING 
CONMES 



MOVEI TAC, [ASCII / 



TO MOVE ASCII CHAR. STRING TO CONSOLE OUTPUT BUFFER 
MOVE DAT, BYTE POINTER TO LAST OUTPUT CHARACTER 
MOVEI TAC. ADDRESS OF ASCII MESSAGE 
PUSHJ PDP, CONMES 

TERMINATED BY NULL 

DOES NOT START TTY 



INTERNAL CONMES 

CONMES: PUSH PDP, TACl 

HRLI TAC, 440700 

CON0: ILDB TACl, TAC 

JUMPE TACl, CONl 
IDPB TACl, DAT 
JRST CON0 

CONi: POP PDP, TACl 
POPJ PDP, 



ROUTINE TO PRINT "TOO FEW ARGUMENTS" 
call: move DAT, byte POINTER 
PUSHJ PDP,NOTFNF 



INTERNAL NOTENF 

NOTENF: JSP TAC. CONMES 

ASCIZ /TOO FEW ARGUMENTS 

/ 



;FORM BYTE POINTER 



COMCSS - COMMAND COMMON ROUTINFS 
T. HASTINGS 8-15-65 



PAGE 7 



000075 
000076 

000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 



000112 
000113 
000114 

000115 
000116 
000117 
000120 



326200 
260140 
254000 
260140 
255000 
205040 
412044 
205040 
202046 
201500 
436506 
260140 
322440 



541100 
505100 
254000 



000100' 
000135' 
000060' 
000000 

000000 

004000 

000000 
646471 
000005 
400001^ 
000004 
000172' 

000000 



000115' 

000000 
000000 



260140 000000 

201040 000000 

370003 000000 

254000 000000 



01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 



ROUTINE 
call: 



INTERNAL 
EXTERNAL 

JOBlNl : 



JOB0: 



TO INITIALIZE A JOB 
MOVE ITEM, JOB NUMBER 
PUSHJ POP, JORINI 
DEVDAT IS SETUP ON RETURN 

JOBINI.JOBZER 

JBTSTS.PJOBN, CORE l.MON JOB, ESTOP, 



TYATT 



JUMPN ITEM,JOB0 

PUSHJ PDP,ASSJOB 

JRST CONMESS 

PUSHJ PDP,TTYATT 

JFCL 

MOVSI TACJNA 

ANDCAM TAC, J8TSTS( ITEM) 

MOVSI TAC, 646471 ;SIXBIT 



;HAS a JOB NUMBER SEED ASSIGNED? 
;N0, then ASSIGN ONE. 

;none left 
;attach tty 
;already attached 

;CLEAR JOB no. ASSIGNED BIT 
;T0 force MESSAGE 
/TTY/ 



MOVEM TAC. DEVLOG(DEVDAT) 



:SET LOGICAL NAME 



MOVEI T, ASSCON ;SET ASSIGNED BY CONSOLE BIT 

lORM T, DEVMOn(DEVDAT) 

PUSHJ POP. DEASTY ;DE-ASSIGNEO ALL DEVICES EXCEPT TTY 

JUMPE JDAT.CPOPJ ;D0ES JOB ALREADY HAVE CORE? 



;routine to release 
;run as monitor job 



ALL DEVICES AND FLUSH CORE 



;CALL 



SAME AS JOBINI 



EXTERNAL lOKILL 



JOBZER: 
JOBZRi: 



JOBi: 



HRRI TAC1,J0B1 
HRLI TACl, ESTOP 
JRST MONJOB 

PUSHJ POP, lOKILL 
MOVEI TAC,0 
SOS (POP) 
JRST COREl 



;ADDRESS of SUB. TO RELEASE DEV 
.'RETURN ADDRESS AFTER lORELS 
;G0 SCHEDULE MONITOR JOB 

;KILL all 10 DEVICES 

;FLUSH ALL CORE 

;C0RE1 WILL SKIP RETURN 
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000121 
000122 
000123 
000124 
000125 
000126 

000127 
000130 
000131 
000132 
000133 
000134 



000135 
000136 
000137 
000140 
0001^1 
000142 
000143 
000144 

000145 
000146 
000147 
000150 
000151 
000152 



350003 
201040 
260140 
322440 

541100 
254000 

261140 
260140 
262140 

205040 
20204 4 
254000 



205200 
253200 
205540 
612544 
253200 
325200 
405200 
254000 

265040 
452370 
406410 
522624 
416130 
420321 



000000 

000001 

000173' 

000132' 

000127' 

000113' 

000006 

000115' 

000006 

002000 

000103' 

000000 



000000 

000137' 

004000 

000133' 

000140' 

000145' 

777777 

000000 

000060' 

220206 

141622 

042660 

542212 

200000 



01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 



02190 



JROUTINE TO KILL CURRENT JOB 
JCALL PUSHJ PDP,JOBKIL 

INTERNAL JOBKIL 
EXTERNAL JBTSTS, TTYK IL 



JOBKIL 



AOS (POP) 
MOVEI TAC.l 
PUSHJ PDP,DEASAL 
JUMPE JDAT,J08KA 
HRRI TAC1,J0BK2 
JRST JOBZRl 



;SUPRESS CR-LF AND JOB INIT. CHECK 



;DEASSIGN ALL DEVICES 
;D0ES JOB HAVE CORE? 

;yes,releas devices and 



CLEAR core 



J0BK2: 



JOBKA: 



;save devdat for ttykil 

;flush core and release devices 



;routine 

;CALL 



PUSH PDP, devdat 
PUSHJ PDP.JOBl 
POP POP. DEVDAT 

Movsi tac.jerr ;clear all but JOB error bit 

MOVEM TAC. JBTSTS(ITEM) UN JOB STATUS WORD 
JRST TTYKIL ;RETURN TTY TO VIRGIN STATE 



TO ASSIGN AN UNUSED JOB NUMBER 
PUSHJ PDP.ASSJOB 

ERROR RETURN TAC DESTROYED 
OK RETURN ITEM SET, TAC AND TACl PRESERVED 



INTERNAL ASSJOB 

EXTERNAL MJOBN, JBTSTS, CPOPJl 

ASSJOP: MOVSI ITEM, MJOBN 
AOBJN ITEM,.+1 
MOVSI T1,JNA 
TONE Tl, JBTSTS(ITEM) 
AOBJN ITEM,.-1 
JUMPGE ITEM.ASSJBl 
ANDI ITEM.-l 
JRST CPOPJl 

ASSJBi: JSP TAC.CONMES 

ASCIZ /JOB CAPACITY EXCEEDED 
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000153 
000154 
I7I00155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000170 
000171 



000173 
000174 
000175 
000176 
000177 
000200 
000201 
000202 
000203 



135500 
312500 
263140 
205500 
412506 
201500 
616506 
263140 
413506 
402006 
602500 
254000 
201500 
137500 
254000 



000000 

000004 

000000 

400000 

000004 

400000 

000004 

000000 

000004 

000005 

200000 

000144' 

000000 

000153' 

000166' 



000172 205040 646471 



261140 
554300 
312046 
260140 
255000 
554306 
326300 
262140 
263140 



000006 

000000 

000005 

000153' 

000000 

000003 

000175' 

000006 

000000 



02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 



ROUTINE TO DEASSIGN A DEVICE 

CALL: MOVE DEVDAT. DEVICE DATA BLOCK 

MOVE ITEM, JOB NUMBER 

PUSHJ PDP, DEASG 

ERROR NOT PREVIOUSLY ASSIGNED 

OK RETURN WITH DEVICE DEASSIGNED 



INTERNAL DEASG 
EXTERNAL PJOBN, CPOPJl 



DEASG: 



WAS DEVICE ASSIGNED TO THIS JOB? 



IN CORE BIT 



LDB T, PJOBN 

CAME T, ITEM 

POPJ PDP, ;N0, RETURN 

MOVSI T.OVDIRIN ;CLEAR DIRECTORY 

ANDCAM T,DEVMOD(DEVDAT) 

MOVEI T, ASSCON ;YES, IS ASSIGNED BY CONSOLE BIT ON? 

TDNN T, DEVMOn(DEVDAT) 

POPJ PDP, ;no 

ANDCAB T,DEVMOD(DEVDAT) 

SET2M DEVLOG(DEVDAT) 

TRNE T, ASSPRG MS 

JRST CPOPJl ;YES 

MOVEI T,0 ;N0, CLEAR JOB NUMBER 

DPB T. PJOBN 

JRST CPOPJl 



;YES, CLEAR BIT 
;CLEAR LOGICAL NAME 
ASSIGNED BY PROGRAM BIT ON? 



ROUTINE 
call: 



TO DEASSIGN 
MOVE ITEM, 
PUSHJ PDP, 



ALL DEVICES EXCEPT LOGICAL 

JOB NUMBER 

DEASTY 



TTY 



INTERNAL DEASTY 

DEASTY: MOVSI TAC, 646471 



;sixbit /tty/ 
;fall into deasal 



ROUTINE TO DEASSIGN ALL DEVICES EXCEPT ONE 
call: move item, JOB NUMBER 

MOVE TAC, LOGICAL DEVICE NOT TO BE DEASSIGNED 

PUSHJ PDP, DEASAL 



INTERNAL DEASAL 
EXTERNAL DEVLST 

OEASAL: PUSH PDP, DEVDAT 

HLRZ DEVDAT, DEVLST ;SEARCH ALL DDBS 
DEAi: CAME TAC, DEVLOG(DEVDAT ) MS THIS THE LOGICAL 

PUSHJ PDP, DEASG ;N0, TRY TO DEASSIGN IT 

JFCL MGNORE IF CANT 

HLRZ DEVDAT, DEVSERCDEVDAT ) 

JUMPN DEVDAT, DEAI 

POP PDP, DEVDAT 

POPJ PDP, 



NAME 
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PI00204 
000205 
000206 

000207 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000230 

000231 
000232 
000233 



133000 000001 
201100 000012 
254000 000210' 



201100 
200540 
201100 
260140 
135500 
306500 
263140 
302500 
306500 
254000 
275500 
321500 
311500 
344100 
220100 
270100 
134500 
254000 



000010 

000002 

000000 

000033' 

000001 

000015 

000000 

000055 

00 0015 

000171' 

000060 

000224' 

000013 

000111' 

000013 

000012 

000001 

000216' 



440600 000002 
000600 000002 
064240 000000 



02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 



ROUTINE TO READ CONSOLE AND CONVERT ANY RADIX NUMBER 
call: MOVE TACl, DESIRED RADIX 

MOVE TAC, BYTE POINTER TO EIRST CHRACTER 

PUSHJ PDP, ANYRIN 

ERROR EXIT ;AC TAC1=0 IF NO NUMBER BEFORE FIRST NO 

NORMAL EXIT ;AC TACl CONTAINS NUMBER 

SCAN STOPS ON FIRST ILLEGAL CHARACTER OR CR 
IGNORES SPACES, TABS, RUBOUTS 

INTERNAL OCT I N , ANYR I N , DEC I N , DEC I Nl 
EXTERNAL CPOPJl. CPOPJ 



C=BUFPNT 
R=BUFWRD 

DECINi: 
DECIN: 



OCTIN: 
ANYRIN: 



OCT0: 



GCTE: 



OCTl 



;CHARACTER AC 
;RADIX AC 

IBP TAC ;SKIP 
MOVEI TACl, 12 
JRST ANYRIN 

MOVEI TACl. 10 
MOVE R, TACl 
MOVEI TACl, 
PUSHJ PDP, 
LDB C, TAC 
CAIN C, 15 



SEPARATION CHARACTER 
{DECIMAL INPUT 



SKIPSl ;SKIP LEADING SPACES, TABS 



POPJ 
CAIE 
CAIN 
JRST 
SUBI 
JUMPL 



PDP, 
C,"-" 
C,15 
CPOPJl 
C,60 
C, OCTE 



JDASH? 
CR? 



CAML C, R 

AOJA TACl, CPOPJ 

IMUL TACl, R 
ADD TACl, C 

ILDB C, TAC 

JRST OCT0 

END. 



;CHECK FOR 
;EXIT WITH 



INITIAL CR 
IN TACl 



;yes, only legal terminators 

;error if negative 
;0R .GE. radix 

;ERR0R, INSURE TACl NON-ZERO 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000234 



COMCSS - COMMAND COMMON ROUTlNFS 
SYMBOL TABLF 



PAGE 11 



A 

ACl 

AC2 

AC3 

AL 

ANYRIN 

ASSCON 

ASSJBl 

ASSJ08 

ASSPRG 

B 

bufpnt 
bufwrd 
c 

CLOSB 

CLSIN 

CLSOUT 

COMERA 

COMERR 

CON0 

CONl 

CONMES 

COREl 

CPOPJ 

CPOPJl 

CRLF 

CTFX 

CTEX0 

CTFXl 

CTEX2 

CTFXT 

CTFXTl 

D 

DAT 

DCL 

DCW 

DOI 

000 

ODTMEM 

DDTSYM 

OEAl 

OEASAL 

DEASG 

DEASTY 

DECIN 

DECINl 

HEN 

OEVADR 

OEVBUF 

DEVCHR 

DEVOIR 

OEVDAT 

DEVIAD 

OEVIOS 

OEVLOG 



000000 

000015 

000016 

000017 

000001 

000210' 

400000 

000145' 

000135' 

200000 

000014 

000012 

000013 

000012 

002000 

000002 

000001 

000042' 

000043' 

000062' 

000066' 

000060' 

000120' 

000224' 

000220' 

000057' 

000024' 

000011' 

000012' 

000020' 

000004' 

000000' 

000017 

000005 

000001 

020000 

000007 

000006 

000037 

000036 

000175' 

000173' 

000153' 

000172' 

000205' 

000204' 

000004 

000007 

000006 

000001 

000011 

000006 

000007 

000002 

000005 



INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 



INT 
FXT 
FXT 
EXT 

INT 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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nEVLST 

DEVMOD 

DEVNAM 

OEVOAD 

OEVPTR 

OEVSER 

DGF 

DIM 

DLK 

DOU 

OR 

DRL 

DST 

DSO 

DTW 

DVAVAL 

nvcDR 

DVniR 

DVniRI 

DVIN 

DVLPT 

QVMTA 

DVOUT 

DVTTY 

FNTRB 

ESTOP 

I 

IB 

IBUFR 

INIT8 

INPB 

ID 

lOACT 

lOREG 

lORKTL 

lOCON 

lODEND 

lODERR 

lonisc 

lODONE 

lOnTER 

lOFND 

lOFST 

TOIMPM 

lOKILL 

lONRCK 

lORDEL 

lORET 

TOS 

lOSTRT 

TOUSF 

lOW 

lOWC 

TOWS 

ITEM 



00P!174' 

000004 

000000 

000010 

000010 

000003 

000012 

000003 

000005 

000002 

000016 

000000 

000011 

000010 

040000 

000040 

100000 

000004 

400000 

000002 

040000 

000020 

000001 

000010 

020000 

000113' 

000010 

000013 

200000 

400000 

010000 

000020 

010000 

000002 

040000 

000040 

020000 

200000 

400000 

400000 

100000 

000040 

000004 

400000 

000115' 

000100 

000100 

000020 
000000 
000010 
400000 
000001 
000020 
400000 
000004 



FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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JBFADR 

JBFCTR 

JBFPTR 

JBTSTS 

JBUF 

JOAT 

JERR 

JIOW 

JNA 

JOR0 

JORl 

JORINI 

JOBK? 

JORKA 

JORKIL 

JORZER 

JORZRl 

LOOKB 

MJOBN 

MONJOB 

MTW 

NOTENF 

OBUFB 

OCT0 

OCTl 

OCTE 

OCTIN 

OUTPR 

PDR 

PICHN 

PJOBN 

PROG 

R 

RUN 

RUNABL 

SKIPS 

SKIPSl 

SKIPSA 

T 

Tl 

T2 

TAC 

TACl 

TEM 

TTYATC 

TTYATT 

TTYBUF 

TTYKIL 

TTYUSE 

USRMOD 

UUO 



000000 


TNT 


000002 


INT 


000001 


TNT 


000140' 


FXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000100' 




000115' 




000075' 


INT 


000127' 




000132' 




000121' 


INT 


000112' 


INT 


000113' 




040000 


INT 


000135' 


EXT 


000114' 


FXT 


010000 


INT 


000070' 


INT 


100000 


INT 


000216' 




000227' 




000224' 




000207' 


INT 


004000 


INT 


000003 


INT 


000100 


INT 


000170' 


FXT 


000007 


INT 


000013 




200000 


INT 


204000 


INT 


000035' 


INT 


000033* 


INT 


000036' 




000012 




000013 




000014 




000001 


INT 


000002 


INT 


000010 


INT 


020000 


INT 


000100' 


FXT 


000044' 


EXT 


000134' 


EXT 


010000 


INT 


010000 


INT 


000014 


INT 



END OF ASSEMBLY 



